
# 多元素向量
v <- 5:13;
print(v);

# 按补偿创建数值
v<- 6.6:16.6;
print( v );

# 如果结束值未达到步长范围,则取提前数值
v <- 4.6:18.3;
print( v );

# 使用seq()进行序列运算
s <- seq(4.4,9.5,by=0.4);
print( s )

# 使用c()函数 将非字符值强制转换字符值
s <- c("apple","red",5,TRUE);
print( s );

# 访问向量元素
t <- c("Sun","Mon","Tue","Wed","Thurs","Fri","Sat");
u <- t[c(2,3,4)];
print( u );

# 添加bool值进行访问数据
u <- t[c(TRUE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE)]
print( u );


# 向量的负 - 索引
x <- t[c(-2,-5)]
print( x )

# 使用 0/1表示索引( 占位作用 )
y <- t[c(1,2,0,0,0,0,0)];
print( y );

#向量运算
# 加法
v1 <- c(3,8,12,13);
v2 <- c(4,11,23,25);
add.result <- v1 + v2
print( add.result );
#减法
sub.result <- v1 - v2;
print( sub.result);
#乘法
mult.result <- v1 * v2;
print( mult.result );
#除法
div.result <- v1/v2;
print( div.result );

# 元素回收
v1 <- c(3,8,4,2,1,5);
v2 <- c(9,12);

add.ret <- v1 + v2;
print( add.ret );

sub.ret <- v1 - v2;
print( sub.ret );

# 向量排序
# 正序
v <- c(4,5,-1,5,69,75);
sort.ret <- sort( v );
print( sort.ret );
# 倒叙
revsort.result <- sort(v, decreasing = TRUE)
print(revsort.result);

# ascii 码 进行排序
v <- c("decide","apple","core","early","banana");
sort.asc <- sort( v );
print( sort.asc );
resort.asc <- sort( v, decreasing = TRUE);
print( resort.asc );


